`maxChar` <-
function(x){
	x <- as.character(x)
	len <- nchar(x)
	max(len)
}

